﻿Module Module1
  Sub Main()
    Dim numeri() As Integer = _
        {0, 1, 5, 8, 12, 3, 0, 14, 7}
    ' definisce una espressione lambda
    Dim elenco =
      numeri.Where(
        Function(p)
          Try
            If p <> 0 Then
              Return True
            Else
              Return False
            End If
          Catch ex As Exception
            Return Nothing
          End Try
        End Function)

    Dim messaggio As String = ""
    For Each n In elenco
      messaggio &= CType(n, String) & " "
    Next
    Console.WriteLine(messaggio)
    Console.ReadLine()
  End Sub
End Module

